import("gtk");
import("glade");

variable xmldir = getcwd() + "/../examples";

define try_load() {
   variable xml = glade_xml_new("howdy.glade");

   if (xml == NULL)
     message("Load failed");
   else
     message("Load succeeded");
}

message("Should see libglade warning, \"Load failed\", \"Load succeeded\" twice");

try_load();
putenv("SLGLADE_XML_PATH=" + xmldir);
try_load();

putenv("SLGLADE_XML_PATH=");
try_load();
set_slang_load_path(strcat(xmldir, char(path_get_delimiter()), get_slang_load_path ()));
try_load();

